home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / bbs / Storyc.lha / SToryC.dd < prev    next >
Text File  |  1998-01-30  |  10KB  |  74 lines
  1. /* SToRY CrEAtOR v1.1 By Xpose */
  2. Parse Arg node;Options results;nodeid="DREAMREXX"node;address value nodeid;
  3. STORY:
  4. transmit " "
  5. transmit ""
  6. transmit ""
  7. transmit "  ____________________________________________________________________________ "
  8. transmit " /  _____________________________________________  _________________________  \ "
  9. transmit " | /                                             ||                         \ |"
  10. transmit " | |     [ R ] -- Read the story                 ||      STory CreaTor      | |"
  11. transmit " | |                                             ||          v1.20          | |"
  12. transmit " | |     [ E ] -- Enter a new line to the story  ||                         | |"
  13. transmit " | |                                             ||        By: Xpose        | |"
  14. transmit " | |     [ D ] -- Download the story ( FREE )    ||                         | |"
  15. transmit " | |                                             ||                         | |"
  16. transmit " | |     [ A ] -- About STory CReator            ||         E-mail:         | |"
  17. transmit " | |                                             ||                         | |"
  18. transmit " | |     [ Q ] -- Quit this place                ||  Dookie1200@Hotmail.com | |"
  19. transmit " | \_____________________________________________||_________________________/ |"
  20. transmit " \____________________________________________________________________________/"
  21. transmit "";newline;newline;prompt 2 NORMAL "  Select an Option >";
  22. if result = "r" then call READ; if result = "e" then call ADD; if result = "d" then call DOWN;if result = "a" then call ABOUT;if result = "q" then call BYE;
  23. call STORY
  24. READ:
  25. transmit " "
  26. transmit " ------------------------------------------------------------------------------ "
  27. transmit "                            -- The STory So Far --          "
  28. transmit " ------------------------------------------------------------------------------ "
  29. fifoexecute "type doors:STORY.ST";
  30. transmit " ------------------------------------------------------------------------------"
  31. transmit "                                 -- The End --"
  32. transmit " ------------------------------------------------------------------------------ "
  33. getchar;call STORY
  34.  
  35. ADD:
  36. transmit " "
  37. transmit "  ____________________________________________________________________________"
  38. transmit " /                                                                            \"
  39. transmit " |     Please enter a line to be added to the story, BUT not more than ONE    |"
  40. transmit " \____________________________________________________________________________/"
  41. newline;prompt 79 NORMAL "> ";AL = result;if AL = "RESULT" then call STORY;newline;fifoexecute "Echo "AL" >> DOORS:Story.ST";newline;newline
  42. transmit "                                  _____________"
  43. transmit "                                 /             \"
  44. transmit "                                |  Thank You !  |"
  45. transmit "                                 \_____________/"
  46. writelog "%h Added a line ";getchar;call STORY
  47.  
  48. DOWN:;transmit " ";
  49. transmit "  ____________________________________________________________________________"
  50. transmit " /                                                                            \"
  51. transmit " |    Download the story, make sure you choose the appropreate destination    |"
  52. transmit " \____________________________________________________________________________/"
  53. download 'doors:STORY.ST';getchar;call story
  54.  
  55. ABOUT:;transmit " "
  56. transmit "   __________________________________________________________________________"
  57. transmit "  /  ______________________  ______________________________________________  \"
  58. transmit " |  /                      ||                                              \  |"
  59. transmit " | |     STory CReator     || The STory CReator is my first Daydream door,  | |"
  60. transmit " | |      -----------      || It is very simple at the moment, however, I   | |"
  61. transmit " | |       By  Xpose       || will add more options in the future like :    | |"
  62. transmit " | |        -------        || 1- Commenting on other lines & nuking them    | |"
  63. transmit " | |